COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	{ Main program part of AL.  There's not much to it! }
C00004 ENDMK
C⊗;
{ Main program part of AL.  There's not much to it! }

procedure detach; external;
procedure initAlloc; external;				(* from ALLOC.PAS *)
procedure initEditor; external;				(* from EDIT.PAS *)
procedure edit; external;				(* From EDIT *)
procedure initWorld; external;				(* from INTERP.PAS *)
procedure consDef; external;				(* From Interp.pas *)

	(* From the EINITn modules:  Editor initialization routines *)
procedure initReswords;						external;
procedure init1Idents;						external;
procedure init2Idents;						external;

begin
detach;			(* release tty *)
initAlloc;		(* initialize dynamic storage allocator *)
consDef;		(* define constants - needed by parser *)
initEditor;		(* ditto for the Editor *)
 initReswords;		(* This used to be in initEditor *)
 init1Idents;		(* This is split into 2 parts *)
 init2Idents;
initWorld;		(* get the Interpreter ready too *)

Edit;			(* Edit, parse, interpret, etc.  Exit upon <ctrl>E *)

writeln; writeln('See you around!'); writeln;
end.